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MODULE DUMPSFILE ( 
IDENT="V04=000' 

ADDRESSING MODE (EXTERNAL=GENERAL 
NONEXTERNAL=LONG_RELAT IVE) 


BEGIN 


' 
Le RRRRARARARERRAR ARERR AR AREER AEE AEE REA EA AEA AE EAA AAA AERAEAERAE 


'® 

' COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
- ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
e 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. : 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


pofelololololololololololololelololololo lo) 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ eORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


FUN SO OBNAUSWN “OO OONAUE WN “OD ONOUS Wh 
SSSSSSSSsssssssssssssssssssss 
Soooocoeo 


* A ee Sn an ta ndatoune> 
Ono 
kk ak ak at tt at at ot tt SS SS SS SS SS 2 OOOOO 
- 
co 


O08 i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeKeeeeeeeeeenkeekeeneeneeeeeeneee 
1 
003 i 
003 '44 
003 ! 
O38 FACILITY: File dump utility 
008 i ABSTRACT: 
: Ops : This module contains the routines to do the work of dumping files. 
40 004 i ENVIRONMENT: 
$3 One : VAX native, user mode. 
a7 noe AUTHOR: Benn Schreiber, Stephen Zalewski CREATION DATE: 22-Jun-1981 
45 4 ; MODIFIED BY: 
47 04 : v03-001 MLJ0033 Martin L. Jack, 23-Aug-1981 9:48 
48 04 i Extensive rewriting to finish implementation. 
$8 0080 1 i 
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D 14 
DUMP SF ILE 137800- 1386 93:37:48 = HONme's 


; 28 te 1 LIBRARY ‘SYSSLIBRARY:STARLET'; ’ 
3 0 1 REQUIRE ‘SRC$:DUMPRE'; PF 
Be 169 1 
3 28 156 1 FORWARD ROUTINE 3 
; 171 #1 dump$fao_setup: NOVALUE, ! Set up FAO control strings : 
; 8158 1 dump§new page: NOVALUE, ' Output new page : 
; gif 1 dump$put_header: NOVALUE, ' Output heading Lines : 
; @& 0174 +1 dump$output getmsg: NOVALUE, ' Get message and output : 
; «661 0175 1 dump$blank_Tine: NOVALUE, ' Write blank Line to listing file 3 
3 6 0176 1 dump$put_line: NOVALUE, ! Output record, watching Lines 3 
; oF Sea } dumpSdump_buffer: | NOVALUE; ! Dump one record/block : 
.- 0179 1 EXTERNAL ROUTINE 3 
>; 66 0180 1 dump$fao_line: NOVALUE, ! Format one Line : 
i oF p18 1 dump$header : NOVALUE, ' Dump file header(s) 3 
; @& 01 § 1 dump$one_header, ' Dump block as a file header F 
; 0183 1 dump$read, ' Read from file 3 
; 0 0184 1 guneres: te NOVALUE, ! Write to output file F 
3 a! bigs : SYSSFAO; ! Formatted ASCII output routine : 
as O18? 1 EXTERNAL 3 
s fo 188 1 dump$gl_flags : BBLOCK ! General flags F 
: «75 189 1 dump$gl-outdesc : BBLOCK, i Qutput buffer descriptor ; 
; 190 1 dump$gl_idesc : BBLOCK, ' Descriptor for input filename F 
.. ae 8134 1 dump$gl_file_efblk, ! End of file block : 
ae 136 1 dump$gl_file_hiblk, ! Highest allocated block 3 
; #679 0195 1 dump$gl_lpp ! Number of Lines per page : 
: 80 0194 1 dump$gl-ifab : REF BBLOCK, i Input FA ; 
; 195 1 p$gl_inam : REF BBLOCK, ! Input NAM block 3 
: 8¢ 0196 1 dump$gl_cur_block, ' Current record/block : 
pe 0197 1 dump$gl_max_block, ! Maximum record/block to dump : 
; (B4 0198 1 dump$gl_w ° ! Width of Listing Line 3 
; 0199 1 ump$gl_number, ! Starting dump index number 3 
; & 0200 1 dump$gl_record, ! Record or block number 3 
3 4 oso) : ump$gq_time; ! Time at beginning of dump : 
; $08 1 EXTERNAL LITERAL 3 
; 90 soe 1 Guaps._ tac il ity. 3 
; (O91 05 1 dump$_dumpofil, 3 
3 4 0 08 1 dump$_dumpodev, 3 
3; 0207 1 dump$_bn, 3 
 § 1 eet : 
3 ump$_vbn, 3 
3 39 0 1 sums" ti dnt. : 
; 1 dump$_recno, 3 
$ 38 1 \ dump$_heade: ; : 
: 100 14 1 LITERAL _ : 3 
: 101 15 1 max_fao_size = 40; ! Size of largest of faotables’ expanded fao strings 

: 108 13 1 OWN 

: 104 18 1 mode index, ' Index into faotable 

: 105 19 1 dum e, ! mode for dump$fzo0_line 

s 0 1 entrys re ! Size of one entry 

; ¥ eS entsperline, ! Number of entries on one Line 

3; 108 21 Linesthispage, ! Number of Lines on this page 


———+ 


14 
DUMPSF ILE 18-56 -1984 01:29: AX-11 Bliss-32 V4.0-74 Page 
your 1 ~300 138% 93:39:48 YOUMP SREIDUMPF INE o3o07 . (2 
: 109 301 dumpwidth, ! Width of one full dung tis¢ing Line 
: 110 4 1 plinfaostring : BOL OFk Cmax. fap size], ! FAO str ng for partial Lines 
5 33% ae plinfaodesc : BBLOCK[dsc c-sbUnd : Descriptor for partial Line fao control string 
3 \\¢ § } INITIAL (max_fad_Size, 
> 114 1 
3 Ti 8 5 1 faoctrdesc : BBLOCKLdsc$c_s_bfn] ! FAO control string descriptor 
3 196 0 1 INITIAL (max_fao size 
; VW? 6231 faoctrstring); 
; 119 : 1 BIND 
: isd 4 1 sizetbl = UPLIT(BYTE(9,5,3 "2g 4,12,7,4))_: VECTORC,BYTEI, 
3 : 1 8 5 : charsperbyte = UPLIT(BYTE(2, -35) : VECTORL,BYTEJ, ! Number of ascii chars /byte based on radix 
3 158 0 ; 1 offtable = UPLIT(cstring('6XL'), ! FAO control to print buffer offsets 
> 124 0238 1 cstring('6SL") 
; 125 0 3 cstring('60L")5 : VECTORC,LONG), 
; 159 0241 1 faotable = UPLIT(cstring(9XL"), 
; 128 0 tg 1 4 iy pM LB 
; 129 02435 1 cstring('3xB") 
: 130 0244 1 estring('11SL'5, 
s 131 0245 1 cstring('6Sw"), 
; 135 0246 1 cstring('4SB") 
: 13 0247 1 cstring('120L'5, 
3; «134 o5¢9 1 cstring(*70w') 
; 5 049 cstring('40B')5 : VECTORC,LONG), 
aor O$23 1 sizetable = UPLIT(BYTE( ' Table to round entry's per 
3; 138 0 26 1 1, ! Line to nearest lower power 
: 139 0253 1 2. ! of two. Max length is 32. 
: 140 0254 1 4, : 
3 (141 0255 1 8 
; 148 0256 1 16, 
3 (14 0257 1 32, 
3 «144 0258 1 64 
> 145 0259 1 128)) :VECTORC BYTE); 


3 
= Aa aostring) 
faoctrstring : itd max_fao sizej,! FAO control string 
| 
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DUMPSF ILE 16-Sep-1984 01:29: AX-11 Bliss-32 V4.0=<74 P 4 
voee 14 30-1984 93:33:48 DUMP. SRCJDUMPF ILE .832; ee (3) 


Opal ROUTINE dump$dump_file: NOVALUE= 


1 GL 
BE N 
; This routine is the driver for file dumping. 
LOCAL 
status : BLOCK(4, BYTE), 
bufdesc : BBLOCKE dsc $c s_bln], 
4 
| 
4 
4 
; 
4 
4 
4 
4 
4 
4 
4 
4 


subdesc : BBLOCKLEdsc$c_s_blnj; ! This desc is used to point to 
! each individual BLOCK/RECORD in bufdesc 

dump$fao_setup(); ! Set up fao control string 
Linesthispage = .dump$gl_lpp; ! Force new page 
Fo eat Feget canpte hooters ! If /HEADER specified 

BEGIN 

dump$header (); ! Dump the header 

Linsoenrenege = .dump$gl_lpp; ! Force new page 


} Read and dump the file. 
WHILE true DO 
BEGIN 


oePeeat~Fecore = .dump$gl record * 13 ! Increment unit counter 

IF (NOT ,BOLOCKCduapSgl . i fab fab$l_dev], dev$v_rnd] ! If not disk 

OR moss’. flags Guneey recersss) ! or record mode 

AND .dump gt record GIRU .dump$gl_max_block ! Stop if already dumped Last 
THEN RETORN; ! needed block 


status = dump$read(bufdesc); 

IF .status EQL ss$_endoffile THEN EXITLOOP; 

IF NOT .BBLOCKCdump$gl_ifablfab$l_dev], dev$v_rnd] ! If not disk 

o duspSol_tlagsCdumpSv_records4 ! or record mode 


POPOPOPIPIPIPIPIPINIPIPIPIDINIPIPYPIPIPIPIPIPPPPIPUIPYIPIPIPIPINPIPYUNPIPYD 
DONAUNE WN 0 ODA ULS AR "OO DONOUES WO 


oo MEW 


IN 
A tt GEQU .dump$gl_cur_block ! In sange to be dumped 


nd 
oo 
wn 


EGIN 

IF NOT .dump$gl_flagsCdump$v_records] 
THEN Linesthispage = .dump$gl_lpp; 

dunp$dump_but fer (buf esc, .status, false); 


END 
ELSE 
WHILE ,bubdescldscSu_ length) GTRU 0 DO ! Dump all blocks 


subdesc(dsc$w_length]_= MINU(512, .bufdescldsc$w_length]); 
teers 


Force new page 
Dump entire block 


IES 


USI 
SESSSSSRSPRR AVES IS VSARATISSR AGT ROR ASSENT LUNES ES 


wu 


oOo 


sc$a_pointer) = .bufdesc(dsc$a_pointer); 
spage = .dump$gl_(pp; 
_buffer(subdesc, .status, false); ! Dump a block 
status = Ss$_normal; 
butdescidecdy length) = phutdescKdectu_longth? - 
.subdesc(d th); 


SOOSGOOOCOOOOOCOSOOSSOSOSOooooooooooooooooooooooooooooooooooooooo 


POR IRI a at a a a a I tS FH PP OP 8 9 PP MS OB PH 9 SF SB PS Ht Sh HY SH YO HH OS OS HY 


Be Se Se Se Se Se Fe Se Se Ss Se Se Se Se Se Se Se Se Ss Ge Se Ge SF Se Ge Gs Ge Ge FF Ss Fe Se Se Ge Fe Se Se Se Gs Se FF SF Ss Se SHES Ge Se SESE SHS Ss SESH Seas 


bo ae 
OuFwn—0O0@ 


WAN 


BVISSeVE 


sc$u_leng 


el LE 


Sep-19 9: AX-11 Bliss-32 V4.0-74 
18-bep-1984 9}: $5 ‘48 iM SREISOMPE IVE 6 E.B B32 pf 
4 butdesct dscdp pointer? = nonenem, pointer] + 


: 204 17 

; 205 1 .subdesc(dsc$w_length 
: 88 1 Eno: END; 

; 208 5 END; 


-TITLE DUMPSFILE 
- IDENT AV04=000\ 


-PSECT SPLITS,NOWRT,NOEXE,2 


04 07 OC 04 06 OB 03 05 09 00000 P.AAA: .BYTE 9, 5, 3, 11, 6. 4, 12, 7, 4 
90009 -BLKB 
93 3 0 000C P.AAB: .BYTE 3, 3 
4C ; 6 QOOOOF P.AAD: ASCII <$>\6xL\ 
4C 53 36 6 0013 P.AAE: ASCII <3>\6SL\ 
4C 4F 36 9017 P.AAF: ASCII <3>\60L\ 
00000000" 00000000' 00000000' dic P.AAC: . ADDRESS P.AAD, P.AAE, P.AAF 
Sab ae EE Ss8 eckaks CAST aS pM 
4¢ 3 3 0030 P.AAJ: .ASCII \3xXB\ 
4C 53 31 31 04 00034 P.AAK: ASCII <4>\71SL\ 
57 33 6 ; 0039 P.AAL: .ASCII <3>\6SwW\ 
42 3 4 003D P.AAM: .ASCII <3>\4SB\ 
4C 4F 32 31 04 9041 P.AAN: ASCII <4>\120L\ 
57 4F 37 : 00046 P.AAO: .ASCII $>\70w 
42 4F 34 0 00044 P.AAP: ASCII ‘ >\40B\ 
00000000' 00000000' 00000000' 00000000° 00020000' 00000000' 8008 P.AAG: . ADDRESS P.AAH, P.AAI, P.AAJ, P.AAK, P.AAL, - 
00000000" 00000000' 00000000" 900 P.AAM, P.AAN, P.AAO, P.AA 
80 40 20 10 08 04 02 01 00074 P.AAQ: .BYTE 1. 2, 4, 8 16, 32, 64, -128 


-PSECT S$OWNS,NOEXE,2 
00000 MODE INDEX: 
00004 DUMPMODE : 
00008 ENTRYSIZE: 
0000¢ ENTSPERLINE: | 
00010 LINESTHISPAGE : 
00014 DUMPWIDTH: 
00018 PLINFAOSTRING: 

00000028 00040 PLINFAQDESC® 


«LONG 
00000000° pote sADDRESS PLINFAOSTRING 
48 FAOCTRSTRING: 60 


LK 
00000028 00070 FAOCTRDESC: 
-LONG 40 


- fF fF FF HS 


Page 


<o 


H 16 
DUMPSFILE 16-Sep-1984 01:29: AX=11 Bliss-32 V4.0-74 p 
viveete aR as Pa et a EM tes eee te age 58 
00000000' 00074 LADDRESS FAOCTRSTRING ; 


Pbe P.AAA 
PERBYTE= P.AAB 
8 P.AA 


thre AAG 


DUMP SiAO. LINE, DUMPSHEADER 
DUMP SON NE HEADER 
UMPSREAD, DUMPSWRITE 

sy WeStAd. 6 bUMPSGL_FLAGS 

ia 6L- bests DUMPSGL_FILE_EFBLK 
D 

DUM 

D 


LK 
“LPP, “DUMPSGL_IFAB 
= JNAn DUMPSGC CUR_BLOCK 


“ L 

“WOT DUMP $GL_NUMBER 
Rb, DUMPS $60 TIME 

TRN DUMPS ERT ea TY, DUMPS _DOMPOF IL 

RN DUMP$~DUMPODEV, DUMP 

RN DUMPS"LBN, D VBN 

EXTRN DUMP$~ -FiLoNT. DUMPS _RECNO 

.EXTRN DUMP$"HEAD 

«PSECT SCODES,NOWRT,2 


O1FC 00000 .ENTRY DUMPSDUMP_FILE, Save R2.R3.R4,R5.R6,R7.R8 ; 0260 
58 000000v EF 9E 00002 MOVAB DUMPSDUMP"BUFFER, R8 : 
& 9900006 0 9€ 00009 MOVAB DUMPSGL_IF : 
36 00006 00 3E 0019 MOVAB DUMPS$GL"RECORD, R6 ; 
5 900006 00 9€ 0001 MOVAB DUMPSGL FLAGS, R5 ; 
4 00 00 0" FF 9E 0018 MOVAB LINE STHISPAGE R F 
3 000000006 60 i 00 MOV BUMP GL_LPP, R F 
E 10 ¢2 0002¢ SUBL2 #16, SP ; 
00000000 EF 09 FB O02F CALLS #0. DUMPSFAO_SETU ; 9 7 
64 6 D MOVL $GL LPP. “CINESTH1SPAGE 3 7 
A 65 : E1 BBC . DUMP : 0276 
000000006 00 Fe D CALLS #0" H : 0279 
64 63 D 44 MOVL § DUMPS$GL LPP LINESTHISPAGE ; 
66 D 47 1$: INCL  DUMPSGLRECORD ; 88 
50 67 D 49 MOVL $ “IFA PRO ; 
83 rH A ¢ Fy ef Bae $3. At A $F acse1 ; 
000000806 00 é D1 is 2$: CHL ger RECORD, sunbsae _MAX_BLOCK : 8339 
08 AF OF F 3$: PUSHAB BUF DE : 0293 
000000006 9 F 2 CALLS #1, SS MPSREAD ; 
D MOVL RO STATUS : 
00000870 &F p CPL status, #2160 > 0294 
5 7 0. MOVL ee Gt iF FAB, °° > 0295 
05 A 4 € 7 BBC a4, 6 ; 
1D gi A 5 €1 BBC UMP be oe ; 0296 
000000006 00 i BI : 
E0 ; 


7 
; 4$: CMPL Oy GL_RECORD, simsce _CUR_BLOCK 
BLSSU 


03 01 AS #5, DUMPSGL_FLAGS+1, 5$ 


14 
DUMPSF ILE 1b-5e -1984 229: AX-11 Bliss-32 V4.0 Page 7 Dd 
your 1 eet 93:39:48 DUMP. SRCIDUMPF ILE. 933: - & Vv 
64 3 00 MOVL § DUMPSGL_LPP, LINESTHISPAGE : 0303 
: D4 5$: -(SP) : 9302 
5 po 9 PUSHL STAT : 
10 AE 9F 0009 PUSHAB BUFDESC : 
68 0 re 9A CALLS #3, DUMPSDUMP_BUFFER : 
AB 1 9D : 0298 
08 A 3 OF 6$ TSTW FDESC : 0308 
0 0B A A Sev euL BUFDESC, RO : 0310 
she a A a ; 
50 0200 8F : OAF MOVZWL Fre, pf? : 
6E 0 8 B4 7$: MOVW ; 
04 AE 0c AE D0 00087 MOVL gy © suBDe + 0311 
64 $ D OBC MOVL P$GL_LPP, Soe CTA ISPAGE ; O31¢ 
: D4 O00BF CLRL : 031 
5 BD 0C1 PUSHL STATUS. F 
08 M3 F 000C3 PUSHAB aa F 
68 0 FB 000C6 CALLS # bURPSDUNP _BUFFER : 
52 1 pO 0009 OVL STATUS : 9314 
08 ar 6E A2 000C SUBW2 SUspést. BUF DESC F 316 
5 6 3¢ 0000 MOVZWL R : 031 
OC AE CO 0000 ADDL2 aoe BUF DESC +4 : 
C6 11 00007 RB 6$ : 0308 
04 00009 8$: RET : 0321 


; Routine Size: 218 bytes, Routine Base: $CODE$ + 0000 


<9 
2 
r 
m 
—— 
Sow 
te 
nn— 
OO 
00 
te 
— 
0.0 
000 
r+ 
-o 
nm 
ror 
=o 
w— 
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ae Bliss-32 V4.0-74 
DUMP. SRCJDUMPF ILE.B832; 


st 


NE dump$fao_setup: NOVALUE= 


$s routine sets up the FAO control string. It also 
lculates the mode and entry widths. 


entry = 0; ! used for entry size calc. 
dumpmode = 0; 
entrysize = i; ! Assume longword... 


_dunp$gl_flags{dunp$v_dec imal] 


OOOOCOCOCCOCOCOoCoOoO 


IF 

THE 
modeindex = 3 

Fuse IF .dump$gl_flagsCdump$v_octal] 
modeindex = 6 


ELS 
modeindex = 0; ! Default to hex dump 


ane 


WO ODNAUNE WN OOONOUE wT 


dumpmode = 2; 
mode index = ,modeindex + 2; 


AA A.A AAAI 


44 
34g IF .dump$gl_flagsCdump$v_word] 
308 THEN . ° 
4 BEGIN 
re entrysize = 2; 
umpmode = 1; 
39 pocetacen = ,modeindex + 1; 
5 ELSE IF .dump$gl_flagsCdump$v_byte] 
33 rise ump$gl_flag p$v_by 
: Seein ' , 
5 entrysize = 1; 
§ 
3 
35 
60 


OOCOCOSOOCOSOSCCOCCOCOSOOOOOOOoOooO 


ss 


: Find entries per Line and make it the nearest lower power of 2. 
entsperline = ((.dump$gl_width - 5)/(.sizetbl£.modeindex]+.entrysize)) AND NOT 1: 


IF poarsper( ine GTR 6 ' Make sure entsperline is reasonable 


4 
L_STOP(dump$_facility*16 + shr$_badlogic + sts$k_severe); 


THEN SI 

wie -entsperline GEQ .sizetableC.entry] ! Find nearest larger power of 2 
O entry = .entry + 1; ! from entsperline. 

entsperline = .sizetablelL.entry-1); ' Make entsperline nearest lower 


' power of two. 
dumpwidth = .entsperlinet(.sizetbl£C.modeindex] + .entrysize) + 8; 


fooc srdescldscSu_length) = max_fao_size; 
SYSSFAO( 


Sdescriptor(’!!!2LC!AC) !!!ZLAF !!!ac"), 
faoctrdesc, 


Pr Te Ta Te TE TE TELE TeLrLeeLre lee eee eee EEE ee Ierelererererererererererecerererereraeceity 
POPOPIPONIPOPINIPIPIPIPIPUPINIPUNIPININPONINIPININUNIPUPOPNPUPONofnononyg 
MEW OO OONAOUE WN 0 OONOULSWN—O 


RoPIMOPININONOPININPININIPUNININIAINININY 
wr 
SALER IS SHVSUE UN — SOSA WN =O SON 
SOOCoSSOOOOOOOOoOoOoO 
~ 


<OQ 


ell LE 


21 


WOOOOOMOOOOCOOCDCDCDODOO~) 


MEW —OOCONOUS in O0 


16-Sep-1986 01:29: 
12286-1382 93:37: 


-entsperline, 
-faotablel.modeindex], 
eentsperline * entryaize. 


tie 
of ftablel modeindex/3J); 


: Set up FAO control string to be used for partial lines. 


SYSSFAO( 
Sdescriptor(’!!!!!!ZLC!AC) PEtttZLaArR fttttac'), 
plinfaodesc, 
plinfaodesc, 
-faotablel .modeindex), 
-entsperline * yentrysize. 
3 -offtablel.modeindex/3]); 
3 END; 
-PSECT 
20 29 43 41 $1 afk. 4'd48 P.AAS: .ASCII 
3 41 21 21 21 20 46 41 +P ' 0088 
0000001 0094 P.AAR: .LONG 
00000000° 0009 ADDRESS 
41 21 $8 4C SA 21 ¢} $1 4 $} $1 O09C P.AAU: .ASCII 
21 21 20 46 41 4C SA 21 21 21 21 OOOAB 
43 QOOBA 
0088 -BLKB 
0000001F OOBC P.AAT ~ LONG 
00000000" 000C0 ADDRESS 
-PSECT 
007C 00000 siattnteaitaen > vi 
56 000000006 00 9€E 0000 MOVAB 
§ 09900006 00 9E $005 MOVAB 
4 000 48 EF 9E Borg MOVAB 
3 00000000 gE 9E 0001 MOVAB 
§ 04 1 CLRL 
04 AS D4 CLRL 
08 A 4 D MOVL 
05 6 ; E BBC 
6 9 B MOVL 
§ BRB 
05 01 a E1 1$: BBC 
6 9 MOVL 
BRB 
04 A +e CLRL 
0c , &@ €1 $: BBC 
8 «OA 1) MOVL 
4 A 1) 4 MOVL 
i) 4 INCL 


3 


AX=-11 Bliss-32 ee 
DUMP. SRC JDUMPF ILE .B32; 


SPLITS,NOWRT ,NOEXE ,2 
NEEIZLCIAC) ELIZLAF E!!AC\ 


24 
P.AAS 


1 
31 
P.AAU 


SCODES ,NOWRT ,2 


SYSSFAO, RO 
DUMPSGL FLAGS, RS 
SIZETBL, R4 
MODEINDEX, R3 
ENTRY 


syernere 

#4, ENTRYSIZE 

Ag DUMPSGL_FLAGS, 1$ 
#3, MODE INDEX 


#2, DUMPSGL_FLAGS+1, 2$ 
#6, MODEINDEX 


DE INDEX 
#6, DUMPSGL_FLAGS+1, 4$ 
#2, ENTRYSIZE 

#1, DUMPMODE 

MODE INDEX 


0322 


<o 


a 


3; Routine Size: 257 bytes, 


06 


51 000000006 


oc 3 
00000040 
000000006 
oc AS 74 A442 
oc 
14 
70 
50 
7E 
50 
7E oc 


MS Sn wv pS 
AWW OoO— nw 


wu 
~™ 


66 
51 
51 


A3 


66 


Routine Base: 


oo 
@o 
@ 
A 


oc 
00000000* 


OVP VMS FAS KE WOOO OUI PS FAOOOOOO 
WOWDONWUAWWINININ FO MO" OWI FS vIn ru 


A441 


OWT™"OOOITIONIONDOONOl OTT O94 MNS -GQnOOoonovdcm— 
NOD MNO WNS NOMLOF OOF CO LOIDIV--DOROFPMWOOCo-— 


SCODES + OODA 


OODE 


SSsssssss 
Oooo 
Ssa RM 

DO OOW™ OVI— 


—-ocooco 


6 14 


6$: 


Sep- 
Sep- 


a 92:87 


18 AX-11 Ol ise 3s ve Oso4 


DUMP.S UMPF ILE .B32 


1° R1, ENTSPERLINE 
NESPERLINE, #64 


#<<<DUMPS$_FACILITY@16>+4384>+4> 

#1, Liesstoe 

a #8, SIZETABLECENTRY], ENTSPERLINE 
ENTRY 


IZETABLE-1CENTRYJ, ENTSPERLINE 
NTSPERLINE, R2 


Moom~s 
oa 


So Ost OF: =™~O-1 


VF DMO RRBODWMYM 
ar pd — ec pent hh} 


OF F TABLECRO 

ENTRYSIZE ENTSPERLINE, -(SP) 
FAOTABLECR1 

PL INF AODESC 

PLINFAODESC 

P. AAT 

#6, SYSSFAO 


Pe Se Se Ge Se Ge Ge Ge Ge Ge Ge Se Be Ge Be Ge Ge Ge Ge Se Ge Ge Be Ge Se Ge BeBe Se Ge Se Ve Se Ge Vere Ve Se Fe Fe Fe Se Se Fee Se 


ODOCCGOCOCOONOOO 


WN —OOONANEWN 0 COONAN WIN SOOO NAOUE WN "OO OONO 


FRRR RRR RRR RRR REE PAA 


Fal ek eek ane ee aed ae ae ae ake be 


WWIWIIRonoronorononononony 3 2 


Be Se Ge Se Be Gs Be Ge Se Gs Be Se Se Se Ge Ss Se SS Ss Se Ss Ss FF SF Oe Se Se Se Se Sse Se Ses See Sseses 


| 
| 
| 
: 
0 
| 
: 
| 
| 
0 


PMINPIN 2 2 SS IOO 
MCD OONOuUfWNH—0O”O 


WAAMAAN AA AAAI 


Fa od 


M14 
1ezSep-1986 2:81:56 EDURPss 


ROUT Ine dump$put_header (bufdesc, header): NOVALUE= 


bufdesc : REF BBLOCK; 


BEGIN 
dl gdumeSol._flagsCduap$v_records] 
elinesthispage + 4 GEQ .dump$gl_\lpp 


true 
END 


dump$new_page () 
dump$blank_line(); 


THEN 


IF NOT .header ! Not dumping header 
THEN 


dump$output _getmsg( 
(IF .dump$gl_flagsCdump$v_records] 


THEN dump$_recno 
ELSE TE NOT -Q6L OCKCdump$gl_ifabCfab$\_dev), dev$v_rnd] 
n 
ELSE IF -BBLOCR dump$gl_ifabCfab$l_dev], dev$v_for] 
ese dumpSvbn) 
vbn), 
xe'oogtt, 
.dump$gl_record 
-bufdescEdsc$w_length]) 
dump$output_getmsg(dump$_header, %8'0001'); 


dump$blank_line(); 
END; 


ELS 


=PINININININININ WWI NIIP PINPINPINPIPININI WWIII WINIPONINPININN 
m 
ae 


000C 00000 DUMPSPUT_HEADER: 
WORD 


ADDL3 #4. LINESTHISPAGE, RO 
CMP RO. DUMPSGL_L™P 


0000006 00 
00000000v_ EF 


. Save R2,R3 
5 00000000v EF 9€ 903 MOVAB DUMPSOUTPUT_GETMSG, R3 
00000000v_ ‘EF 0 MOVAB OD LANK CINE Re 
11 90000006 0 5 1 BBC #5, DUMPSGC FLAGS+1, 1$ 
50 00000000' EF 4 1 


$: CALLS @ DUMPSBLANK_L INE 
$: BLBS §- HEADER 
MOVZWL aBUFDESC -(SP) 
D 


1 

1 

9 8 

: 9 1$: CALLS a8 DUMPSNEW_PAGE 
C 

D GL_RECORD 


PUSHL 


z 


FESS 


mre 
NOOw 


1" V4 
1e-$p-198e 12:81:98 EOumP.sReJbunPr iL 8321 fun 


1 0D 0004 PUSHL i ; 0418 
08 000000006 00 5 E1 0004 C ondyesstg FLAGS+1, 4$ + 041 
000090006 &F bp , PUSHL ; 
: “ i 000000006 6 p 3 4$: MOVL Bus bad FAB, RO : 0421 
50 000000006 f p 61 MOVL ‘ UMP$_BN, aa® ; 
09 43 AO E9 QO06A SS: BLBC 67(RO), 6$ + 0423 
0 000000006 F bo ie MOVL #DUMP$_LBN, RO : 
50 000000006 F b0 of $$: MOVL #DUMPS_VBN, RO : we 
63 4 FB b 8$: CALLS #4, DUMPSOUTPUT_GETMSG + 0419 
B 11 000 BRB 10$ : 0418 
1 OD 00 5 98: PUSHL #1 + 0430 
000000006 BF DD 00087 PUSHL #DUMPS$_HEADER : 
63 : FB 008 CALLS #2, DURPSOUTPUT GETMSG ; 
62 FB 00 % 10$: CALL > DUMPSBLANK_CINE : 0432 
04 0009 RET + 043 


; Routine Size: 148 bytes, Routine Base: S$CODE$ + 0108 


14-Se DUMP. SRCIJDU 


15 
as Feca UELR MC hee aid 


: 4 434 1 GLOBAL ROUTINE dump$new_page: NOVALUE= : 
3 5 r 5 FEIN : 
F ? r Output a new page : 
; 9 4 Linesthis a ! Reset count of Lines/page F 
; 0 440 sige ett riptor( CHAR(%0'014'))) ! Output a form feed the 5 
: 331 441 ~BBLOCKEd $5U° ifab fabst devd, 5th, for] ; 
3 ¢ tts T .BBLOCK PaomBsgl. fab ab$i_d evJ, dév$v_fod] ; 
3 4 444 NBEGIN ! Output ‘'dump of device’ 3 
: ? ret cumptoutput.. getmsg¢ : 
3 odev, F 
: 337 409 g3"boott : 
: 8 enh dump$gl_ idesc, : 
; 339 449 dump$gq_time); F 
3; 340 0450 F 
3: 341 Bo3) 3 
: 46 126 F 
3s 34 045 ar getmsa( 3 
: 4 0454 dumpof i 5 
s 345 0455 3 
: 346 0456 dumps desc, ; 
3; 347 045 anes goat ~~ 

: 348 0458 IF .BBLOC ae gt. ifab(fab$l_dev), dev$v_rnd] 

3: 349 0459 THEN 

s 350 0460 ag rfénes). ! File ID and size 

5 $2 366) 

; 328 bees Bn OD *inam nam$w_fid pun} + .dump$gl_inamC(nam$b_fid_nmx]*16, 

> 354 0464 -dump$gl_inam(nam$w_fid_se 

3 395 0465 -dump$gl_inam —_ b_fid_rv 

3; 356 0466 -dump$gl- file 

: 357 0467 -dump$gl—file- “hibtkS; 

; 358 0468 § END; 

3; 359 0469 

: 360 0470 2 dump$blank_Lline() 

3 1 0471 1 END; 


-PSECT SPLITS,NOWRT NOEXE ,2 


0c poece P.AAW: .ASCII <12> 3 

00C5 -BLKB 
S44 gapce P.AAV: .LONG 3 
0000000" OO0CC ADDRESS P.AAW 3 


<PSECT $CODES,NOWRT,2 
.ENTRY DUMPSNEW_PAGE, Save R2,R3,R4,R5 0434 
6 MOVAB DUMPS$GL_IDESC. 
MOVAB DUMP $60- TIME, ‘at 
0 _GETMSG, R2 


g 
5 
: 
ere 
é 


! Output ‘dump of file’ 


15 
SUNPEE ILE 1$-$e0-1964 01:29:18 yAtat1 BL fs5-52 vé.0-742 Page 14 


goonnee9 | 


CLRL BAA eeart ; 0439 


PUSHL #1 
PUSHL SDURPS FILD 
CALLS Te DURPS OUTPUT GETMSG 


, 000000006 
+0. DUMPSBLANK_CINE 


00000000V_ EF 


EF p4 
F OF PUSHAB P.AAV 64 
000000006 Q 5 F CALLS ae — 
63 D MOVL 4 ye AB, RO : 0441 
43. AO E BLBS  67(RO), 1$ : 
11 41 A0 06 E BBS #6, 65(RO), : 0442 
4 DD 1$ PUSHL ® 044 
55 (DD PUSHL Re : 
1 DD PUSHL #1 
000000006 8F DD PUSHL #DUMPS_DUMPODEV 
2 4 Fe CALLS #4, DURPSOUTPUT_GETMSG 
4c 1 99 BRB 3$° 
54 OD R4 
55 DD 000 PUSHL 5 
1 DD 000 #1 
000000006 8F oD 000 PUSHL #DUMPS_DUMPOFIL 
$2 4 FB 000 CALLS #4, DUMPSOUTPUT_GETMSG 
5 63 D0 90 MOVL DUMPSGL FAB RO 
35 43 AO 04 €1 000 BC #4, 67(RO), 3$ 
000000006 00 DD 90 PUSHL DUMPSGL_FILE_HI 
900000006 9 DD 000 PUSHL DUMPSGL~FILE~EFBLK 0466 
50 00000996 00 DO 000 OVL DUMPSGL-INAM- RO 0465 
7E AO 9A 000 MOVZBL 40(RO), ~=(SP5 
7E 6 AO 3¢ 00 MOVZWL 38(RO), -(SP) 0464 
51 4 Aad 3¢C 000 MOVZ2WL 36(RO), R1 0463 
50 29 AO 9A 000 MOVZBL 41(RO). RO 
50 50 10 78 900 #16, RO, RO 
6041 9F 000 PUSHAB (ROSCR1I 
91 DD 000 
F DD 000 
07 FB 999 
00 FB 000 
04 000 


w 
a 
oO 

m> 

am 
i. 
7.) 


; Routine Size: 162 bytes, Routine Base: S$CODES + 026F 


> OOO@o ag pe a ng ng ay 
~ 
wr 
vvv 
ccc 
AMM 
> > > 4 
corr 
@o 
- 
x 
De De Be Be Be Be Be Be Be Be Se Be Se Be Se Se Se Se Se Se BeBe Se Se Se Be Se Se Se Se Sete 
o SoS oo 
> Pr 
ow Wns 
nu @ we 


Dt 
v( 


D 15 
DUMPSF ILE 16-Sep-1984 01:29: AX-11 Bliss-32 V4.0-74 Pa 5 
voee000 e-8eb= 18 13:59:56 EOUmP sRCADUMPF ILE o3ee% a 43 
s 3S 472 1 GLOBAL ROUTINE dump$ ( " ‘ : 
6 ae BEGIN umpSoutput_getmsg(messageid,messageflags,args): NOVALUE= 
; 08 of? ; Routine to do a $GETMSG and then FAO and output it. 
; 4 ci Inputs 
: 370 rh i messageid id of message 
3 Srl 480 : messageflags flags for GETMSG 
: i bees args first of n args 
5 374 ass LOCAL 
: ST? 484 status, 
3 Sr 485 outbuf : BBLOCKCdump$c_maxlisiz], 
3; 377 Bee outbufdesc : BBLOCKEdsc$c_s_bln 
; 378 04 faoctrbuf : BBLOCKCdump$c_maxlisiz), 
3; 379 0488 faoctrdesc : BBLOCKEdsc$c_s_binj; 
: 3B 0690 
; Be 0491 2 CHSFILL(O,dsc$c_s_bLn, faoctrdesc); 
3 Hs eh] CHSFILL(O,dsc$c_s_bln,outbufdesc); 
> 384 049 faoctrdescldsc$w_Cength] = dump$c_maxlisiz; 
; oH 0494 faoctrdesc cscha_pointer) = faoctrbuf; 
; 386 0495 2 outbufdesc(dsc$w_length] = dump$c_maxlisiz; 
: 387 0496 2 outbufdesc(dsc$a_pointer] = outbuf; 
. ee 
; 390 P0499 2 status = SGETMSG( 
; 391 P 0500 msgid=.messageid, 
3 4 P 0501 msglen=faoctrdesc, 
; 39 P B26 bufadr=faoctrdesc, 
: 394 050 flags=.messagef lags); 
; 4 Bene iv NOT .status 
; 397 0906 SIGNAL_STOP(dump$_facility*16 + shr$_badlogic + sts$k_severe): 
: 399 0508 
: 400 P 0509 status = SFAOL( 
: 401 P 0510 ctrstr=faoctrdesc, 
3 rey P 0511 outbuf=outbufdesc, 
; 40 p B26 out Len=outbufdesc, 
> 404 051 Bem steoreshs 
; 405 0514 IF NOT .status 
3 rts 515 THEN 
; 40 218 
: 409 218 
3 410 0919 dump$put_line(outbufdesc); 
: «411 520 1 END; 


-EXTRN SYSSGETMSG, SYSSFAOL 


007C 000 -ENTRY DUMPSOUTPUT GETMSG, Save R2,R3,R4,R5,R6 ; 0472 
26 oocopons 09 9E 000 MOV R 


9E MOVAB ay Tita es 


SIGNAL_STOP(dump$_facility*16 + shr$_badlogic + sts$k_severe); 
| 
| 


15 
DUMPSF ILE 16- Sep-1984 229: AX-11 Bliss-32 V4.0-7 Pa 
wie 132808- 138s FSiSFi48 4 EbUp BE lSSmbe ive soso, | ee 
08 00 6E 00 2c oF MOVCS #0, (SP), #0, #8, FAOCTRDESC ; 
08 00 6E ae 65 2c 1 movcS #0, (SP), #0, #8, OUTBUFDESC ; 
6E 84 §8F 98 0001 MOVZBW #132 FAOCTRDESC ; 
04 AE 8 AE 9E MOVAB EAQCTRBUF FAOCTRDESC+4 : 
FF74 CD 4 8F 98 MOVZBW #1 BuFDES ; 
FF78 CD FF7C D 9 8 NOVAB OUTBUF , OUTBUFDESC+4 ; 
08 AC DD 4 PUSHL MESSAGEFLAGS : 
8 AE OF 7 PUSHAB FAOCTRDESC ; 
C AE OF 0 A PUSHAB a TRDESC : 
4 aC DD D PUSHL MES AGEI ; 
000000006 9 Q i 0040 CALLS #3, SYSSGETMSG : 
23 E8 0004A BLBS § STATUS, 1$ + 0504 
00000000 F Dp 9049 PUSHL #<<<DUAPS FACILITYA16>+4384>+4> ; 0506 
C AC 9F 00056 1$: PUSHAB ARGS” + 0513 
FF74 CD 9F 00059 PUSHAB OUTBUFDESC ; 
FF74 CD OF 0005p PUSHAB OUTBUFDESC : 
OC AE 9F 00061 PUSHAB FAOCTRDESC : 
coonnnns op ERR RAE Stes : 
09 52 EB O06 LBS STAT 23 + 0514 
66 00000000* 4 7. ya on #<<<DUMP Mac tecataactadites : 0516 
FF74 CD 9F OOOZA 2S: PUSHAB OUfBUFDESC + 0519 
00000000v_ EF 61 FB OO07E CALLS #1, DUMPSPUT_LINE : 
04 00085 RET : 
; Routine Size: 134 bytes, Routine Base: S$CODE$ + 0311 


So 
w 
™m 
Oo 
Be Be Se Se Se Se Se Se Be Se Se Se Se Se Ge BH BH Se Se Se Se Se Se Se Se Ge Ge Se Ve Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Ve Se Se Se Se Seas Be Se Sete seas 


F 15 
DUMPSF ILE Se 4 9: AX-11 Bliss-32 V4.0-74 P 17 
vee 18: Sep- 1382 9}: $% ‘48 DUMP. sREISOMPF IVE 63004 ro (8) 
505 L ROUTINE dump$blank_line: NOVALUE= 
Write blank Line to Listing file. 
dumpSput Line(S$descriptor('')); 


G 
8 
1 
i 
i 
d 


Oooo 
NOUS Win 


Sete ee Ge Ge eee 

ya? a? a? a? a? a? 
— 9 >) > _» 
DONAOUSW 


-PSECT SPLITS$,NOWRT,NOEXE,2 


0000 P. pi et 3 
opoennee, 90009 P:AAK: “LONG. 8, ; 


-PSECT SCODES,NOWRT,2 


0000 00000 ENTRY DUMPSBLANK_LINE, Save nothing ; 0521 
00000000" EF 9F 00002 PUSHAB P.AAX ; 0526 

00000000vV_ EF 01 FB 00008 CALLS #i, DUMPSPUT_LINE 3 
04 0000F RET : 0527 


; Routine Size: 16 bytes, Routine Base: S$CQDE$ + 0397 


Be Ge Se Se Se Se Se Ge SE Ge Se Se Ge Se Se Se Ge Se Fe Ge Fe Ge Fe Se Fe Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Se Se Se Se Se See Se Se Sete Se Se Se Se Se Se Se Seas 


— Re st ee nee Be pee eS 7 en tee eee i 
eel > 


15 
HESeoctaee O4:30:18  YAlal BLissaR? W250 el 


+ el LE 


: 421 8 1 GLOBAL ROUTINE dump$put_line(desc): NOVALUE= 

i 4 9 g GEGIN 

3; 4 1 i This routine forces a page break if the Lines per page is 

; : é ; ¢ about to be exceeded, provided that the device is a disk. 

3 6 4 2 IF .linesthispage GEQ .dump$gl_l ' If lines per page exceeded 
: 438 : 5 AND” -BBLOCKLdumpSgl_i abt fabs t=dev3., devév.rnd) | device is disk 
; : ? dump$new_page); ! then new page 

; 4 : 03 9 

; 4 40 dump$write(.desc); 

3; 434 0541 Linesthispage = . Linesthispage #13 

3; 6435 0542 1 END; 


0004 000 .ENTRY DUMPSPUT_LINE, Save R2 : 0528 
52 00000000' EF 9E 0000 MOV LINESTHISPAGE, ; 
000000006 00 8 bi 99005 CPL LINESTHISPAGE, DUMPSGL_LPP + 0534 
50 000000006 00 00 90012 MOVL  DUMP$GL 1FAB RO + 0535 
05 43 AO 04 €1 0001 BBC #4, 67(RO), 1$ : 
FEAS CF 00 FB 00016 CALLS #0, DUMPSNEW_PAGE : 0537 
04 AC DD 00023 1$ PUSHL DESC : 0540 
000000006 00 01 FB 00026 CALLS #1, DUMPSWRITE : 
62 06 0002D INCL LINESTHISPAGE + 0541 
04 0002F RET : 0542 


3; Routine Size: 48 bytes, Routine Base: S$CODES + 03A7 


H 15 
voo-000- 1er$ep-1986 12:51:56 EDUNP. sRCJDUMPF ILE-830; nerf 


; 437 43 1 GLOBAL ROUTINE dump$dump_buffer(bufdesc,status, header): NOVALUE= 

: : te BEGIN 

; rr 23 This routine does all the work of dumping the buffer. 

> 46 4 MAP 

3 ret a3 ane : REF BBLOCKCdsc$c_s_binj; 

; 44s 1 vocatutter = ,bufdescldsc$a_pointer] : VECTORL,BYTE); 

: bh ‘ tempbuffer : BBLOCK(512), 

3 rr, 2 4 tempdesc : BBLOCKLd c$c_3_blnj. 

> 44 5 tempfaobuf : BBLOCK(max_fao_sizel, 

; 450 5 § additional, 

: 451 55 pedbytes 

3 4¢ 338 ufferpointer, 

s 45 55 as aa 

: 454 beee number, 

3; 455 561 pycospers tts 

; 456 p26 bytesleft, 

3 tei 8207 entsinbuf; 

: 459 565 2 faopointer = faoctrdesc; ! Assume full Line 

: 460 206 FAPEr PR neater Ruteeess -header); 

3 $83 ry AM. Status 

: rhs. 0369 BEGIN 

3 4646 570 dumpSoutput getneg’.stetus, %B'1111"); ! Put out error status 
; 465 0571 dump$blank_Tine(); 

Be oe, 

: 468 bah4 IF NOT .header 

3: 469 575 AND .dump$gl tlogsldunpty file header] 

; ony ary AND -butdescLdsc w length] EQL~51 

; rtf 278 IF dumpSone_header(.bufdesc(dsc$a_pointer]) 

> 47% 580 RETURN; 

3 of? ; 1 

3 47 5 5 number = 9 ' Local index number 

3 rth | : bytesperline = ponteper| ines .ontrys ize: 

3; 4 5 entsinbuf = ((.bufdescldsc$w teng h]+.entrysize-1) 

; cbt 5 a slien all and Bor C,entrysiae-t))/ .entrysizes 

3 esleft = .bufdesc(dsc$w_len 3 

3; 4 § ; If NOT cdunpigtftagst inpSv rember) * ! If /NUMBER not used, 
: rey 289 THEN dump$gl_number = 0; ! start each at zero 

; 485 591 WHILE .entsinbuf GTR 0 DO 

; re 598 aa LSSU .bytesperline 

; rh: 595 4 BEGIN 

3: 490 239 4 CHSCOPY( byt oloft buf fort number) 0,.bytesperline,tempbuffer); ! Copy partial Line, zero fill to en 
: $3) 33 ? sonpdese ascSu_tength ‘. max -fao.si e; ! Set up work area for parti 
8 scldsc$a_pointer) = tem uf; 4 

; 49 38 4 SYSSFAO(pL infaddesc, tempdesc, tempdesc, .entsinbuf); ' Set up fao with # of entri 


= 
Sd 
n> 4 


0 
4 


samssnan ens 


MNMNMINIPNINININ 2 2 2 SS SS O00 
NOE WN OOONA MEWS ODR en 
PAAAAO 
at 4 41 O 
ODONAVLS WE $OOONOu 


ttt 
DONAUESWN © OONOAOULSWN OO 


POPU LVSUSPUDVIVSIVSUSUSUSVSUSUSVSVSVSTUSUSUSVSVSUSISI SISSON £= 
AWWAWA 


Te ds ah ach meh ach tach tk ach tah tah teh tte ta tah ol te ae ee ae ae ae ee ha al lal ee at et et ee ee et et et et et et oe et et ee ee 


GOSH MEU O OO 


3333333335 


DONOULSWN—O 


-———— 5 


$ep-1984 9: AX-11 Bliss-32 V4.0-7 P 0 
1b }en-1944 Pbi8748 «— EbUne she btmer ive so3o, 29° 48) 
fee erpointer steno gi eter: ! Use this fao control strin 
dump$ at. outdesc(dscSw_len th) = -dump$gl_width; ! Set output length to defau 
dump$fad_Line(.bufferpointer, .entsperl né, .entrysize i Format the output Line 

° dump$gl_ number, -entsinbut..duapmode,. feopointer, dump$gl_outdesc); 


Now that the partial Line is ready to be written, suppress any 
' Leading zeros. 


' 

i 

' 

i NOTE: Due to the fact that RMS does reads on WORD offsets, the first 
: leading byte of zeros will not be replaced if the dump is in 
block mode and ends up on a byte offset. 


additional = 0: 


adbytes = .dumpwidth - .dump$gl_out esc(dsc$w_length]; Calcu dete addin & ord offset) 
TF NOT ~ dun Sgt. # lags CduapSv_decTna tg . If HEX or r BCTAL Ms : 
NBEGIN ' calculate further nae if neces 
IF (additional = -bytesleft MOD .entrysize) GTR 0 Find additional offset . 
THEN additional = Csanerys tse - ,additionai) Customize it to type of dump 


& 
rh ps fe smode index/3) * 73 
pasoytes = .padbytes + “addit ona 


-dump$9 tdescldsc$a_pointer : additional, 
ump $l” outdescldsc$a_ wt othotel -padbytes); 
CHSFILL GEC’ spa adbytes,. GuaeSs outdesc(dsc$a pointer): Move blanks to pee areas 
dump$gl_outdesc(dscSw_length Tdumpwidth; ! Set output length to 
END device type. 


CHSMOVE (.dump$gl_ sates faete length] - .additional 


E 
BEGIN 
mutter ointer = buffer(€.number); 
duaps 7.5 _outdesc(dsc$w stength) = .dump$gl_width; Set output length to default value 
dump$fao_line(.bufferpointer, .entsperl né,.entry size, Format the output Line 
Tdump$gl_ number, .entsinbuf,.dumpmode,. teepotater. dump$gl_ “outdesc); 


Dump full Line 


END; 
d ut_ iSnese $gl_outdesc); ! Put Line gut to device 
a aber ¢ Sigteseeri tans : Calculate next inde 
ae ~dumpSgl- et Rs number] If /NUMBER qualifier used 
A, number = .dump$gl_number + .bytesperline ! then keep cumulative index, 
quap number = .number ' else make index local 
ents unpss ; “.entsinbuf - vonkepert tess ! Update # of entry's in buffer 
aysontere = .bytesleft - Centsperline*.entrysize); ' Calculate how cole bytes left in b 


¥* 


OFFC 00000 -ENTRY + see Bur FFER, Save R2,R3,R4,R5,R6,R7,- : 0543 
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3; Routine Size: 496 bytes, Routine Base: SCODE$S + 0307 


kK 15 

DUMPSF ILE 16-Sep-1984 01:29: AX-11 Bliss-32 V4.0-74 Pp 2 0 
rivet 1ergeR=} 3s Pb:S7:48 HAMAS! Blissase ve. 0s248 29¢ 485 \ 
24 AE DD 0004 PUSHL BUFFERPOINTER ; : 
000000006 00 FB oF? CALLS ay n PSPAD LINE : : 
? F CLR AD L : 0614 : 
50 000000006 1 MOV yl DUMPS$GL_OUTDESC, RO + 0615 ; 
oc BRsRR0H8: ff Ei) uss HRs guylona eases re 
09 1 BR 18 EMUL #1. BYTESLEFT, #0. -(SP) : ets : 
56 6 E 00000000' Ef 7B 00110 EDIV ENFRYSIZE, (SP)+, ADDITIONAL, ADDITIONAL; F 
if 98 00158 binant : 
1 00000000' EF 56 C3 OO10A SUBL3 ADDITIONAL, ENTRYSIZE, R1 + 0620 : 
2} itdaittce F 9 : 132 sets 43 MODE INDEX, R2 F 88 1 : 
3 00000000" EF A 0013A MOVZBL CHARSPERBYTELR2], R3 : F 
6 01 ij ge 128 MOVA Peay ADDITIONAL : : 
oc A CO 00149 68: ADDL2 ADDITIONAL, PADBYTES : 06 2 ; 
5 C2 00140 7$: SUBL2 ADDITIONAL, RO : 06 ; 
57 000000006 1 : MOVL.  DUMPSGL_OUTDESC+4, R7 > 0626 F 
OC BE47 6647 1 MOVC nd. (ADBITIONAL)CR7J, @PADBYTESCR7) : 0627 : 
OC AE 20 6E 0 ¢ O13 movcS #0. (SP), #32, PADBYTES, (R7) : 0628 : 
000000006 00 00000000° ef 80 0165 mov DUMPWIDTH, DUMPS$GL_OUTDESC : 06 9 : 
08 ar 04 BES 9 O17 8$: MOVAB @4(SP)CNUMBER], BUFFERPOINTER : 0638 : 
000000006 0 4 44 06 09 8 17 MOVW DUMPSGL_WIDTH, DUMPSGL_OUTDESC : 0% é 
00000006 F 0018 PUSHAB DUMPSGL~OUTDESC + 0635 F 
00000086" ef BD tt PUSHE Sento _ Cane : 
cones EE «6 SE Reels : : 
Se fi | ae FNL hee cal 
9? aE DD 001A6 PUSHL BUFFERPOINTER : ; 
000000006 00 08 FB 001A9 CALLS , DUMPSFAO LINE ; : 
000000006 00 9F 9180 9$: PUS $GL_OUTDESC + 0639 F 
ah A 0 0168 RASS BYTESDERT INET TAMER £9640 
09 000000006 00 or E O1BE BBC i DUMPSEL FLAGS+1, 108 + 0641 F 
000000006 00 i £6 O1¢6 ADDL2 YTESPERLINE, DUMPSGL_NUMBER > 0643 2 
000000006 B DO OO1CF 10$:  MOVL NUMBER, DUMPSGL_NUMBER > 0645 : 

8 900 0000' EF C2 00106 11$:  SUBL2 ENTSPERLINE, ENTSINBUF : rae 

50 00000000' EF 0000000' EF ¢ 1pp MULLS ENTRYSIZE, ENTSPERLINE, RO > 0647 

° reid i ike shoe Re. ore : 0591 

4 OO1EF RET + 0649 

| 


15 
DUMPS$F ILE 1b-Se =1984 01:29: AX-11 Bliss-32 V4.0-74 Page 23 
voe 127808- 1382 9339: 48 DUMP. SRC JDUMPF ILE .B32; . 43 
; 545 6 1 END 
i 3 868) 0 ELUDOM 

-EXTRN LIBSSTOP 

: PSECT SUMMARY 
; Name Bytes Attributes 
: SOWNS 120 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS £48 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1479 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
; cocccees Syabols oooee-e- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: CSYSLIBISTARLET.L52;1 9776 20 0 581 00:00.7 
H COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:OUMPF ILE/OBJ=OBJ$:DUMPFILE MSRC$:DUMPF ILE/UPDATE=(ENHS: DUMPF ILE) 
3; Size: 1479 code + 336 data bytes 
3; Run Time: 14, 
: Elapsed Time: :58.9 
3 Lines/CPU Min: 5 
3; Lexemes/CPU-Min: 2589 
: aonory Used: 152 pages 
; Compilation Complete 
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